home *** CD-ROM | disk | FTP | other *** search
/ Astronomical Explorations / Astronomical Explorations.iso / setup.inf < prev   
Text File  |  1994-08-12  |  2KB  |  55 lines
  1. GetCurPath(Drive)
  2.  
  3.  
  4. SetVariable(instructions,    "Click {\b OK} or press {\b Return} to continue. "
  5.     "To quit, click on {\b EXIT} "
  6.     "in the lower right-hand corner of the screen, or press {\b F3}.")
  7.  
  8.  
  9. WindowTitle("Installation of Astronomical Explorations")
  10.  
  11. DisplayMessage("This program will install Astronomical Explorations",
  12.         <instructions>)
  13.  
  14. SetVariable(newpath,"C:\STARS\")
  15.  
  16. PromptPath(newpath,<newpath>,"Where do you want to install Astronomical Explorations ?",
  17.     "Modify the path by default, if necessary, and click on {\b OK}
  18.     or press {\b Return} to continue.",
  19.     "The usual path is not valid... ")
  20.  
  21. GetSpaceAvailable(space,<newpath>)
  22.  
  23. IfLowerGoto(500000,<space>,continueok)
  24.  
  25. ;; put the routine here if the space is missing....
  26. DisplayMessage("There is not enough space free on the disk to install the program..."
  27.           "(You need at least 500 Kb of memory available on your disk) ",
  28.           "Press {\b ok} or {\b Return} to quit installation..."
  29.           "Free the space and start again")
  30.  
  31. continueok:
  32. MakePath(<newpath>)
  33.  
  34. OpenCopyProgress("Installation in progress...",
  35.         "Thanks for your patience...")
  36.  
  37. IfFileExistsGoto(<newpath> "stelle.exe",noncopiarerosexe)
  38. CopyFile("stars\stelle.exe",<newpath> "stelle.exe",500000)
  39.  
  40. noncopiarerosexe:
  41. TranslateFile("stars\pathcd",<newpath> "pathcd",100,"Drive",<Drive>)
  42.  
  43. CloseCopyProgress()
  44.  
  45. OpenProgmanProgress("The installation program is adding a new Program Manager Group",
  46.         "Thanks for your patience...")
  47.  
  48. OpenProgmanGroup("Cd-Rom Editel")
  49.  
  50. AddProgmanItem("Astronomical Explorations",<newpath> "stelle.exe",<newpath> "stelle.exe",0)
  51.  
  52. CloseProgmanProgress()
  53.  
  54. 
  55.